home *** CD-ROM | disk | FTP | other *** search
Text File | 1988-01-25 | 5.0 KB | 182 lines | [TEXT/MSBA] |
-
- CLS
- TEXTSIZE (24):TEXTFACE(5)
- PRINT:PRINT SPC(10);"SALES TAX"
- WINDOW 2,"",(25,100)-(476,200),3
- TEXTFACE(1):TEXTSIZE(14)
- PRINT SPC(3);"START"
- BUTTON 1,1,"jan",(25,30)-(75,55),1
- BUTTON 2,1,"feb",(95,30)-(145,55),1
- BUTTON 3,1,"mar",(165,30)-(215,55),1
- BUTTON 4,1,"apr",(235,30)-(285,55),1
- BUTTON 5,1,"may",(305,30)-(355,55),1
- BUTTON 6,1,"jun",(375,30)-(425,55),1
- BUTTON 7,1,"jul",(25,65)-(75,90),1
- BUTTON 8,1,"aug",(95,65)-(145,90),1
- BUTTON 9,1,"sep",(165,65)-(215,90),1
- BUTTON 10,1,"oct",(235,65)-(285,90),1
- BUTTON 11,1,"nov",(305,65)-(355,90),1
- BUTTON 12,1,"dec",(375,65)-(425,90),1
- WHILE DIALOG(0)<>1:WEND
- ButtonPushed =DIALOG(1)
- IF ButtonPushed = 1 THEN sd$="01"
- IF ButtonPushed = 2 THEN sd$="02"
- IF ButtonPushed = 3 THEN sd$="03"
- IF ButtonPushed = 4 THEN sd$="04"
- IF ButtonPushed = 5 THEN sd$="05"
- IF ButtonPushed = 6 THEN sd$="06"
- IF ButtonPushed = 7 THEN sd$="07"
- IF ButtonPushed = 8 THEN sd$="08"
- IF ButtonPushed = 9 THEN sd$="09"
- IF ButtonPushed = 10 THEN sd$="10"
- IF ButtonPushed = 11 THEN sd$="11"
- IF ButtonPushed = 12 THEN sd$="12"
-
- TEXTSIZE (24):TEXTFACE(5)
-
- WINDOW 3,"",(25,220)-(476,320),3
- TEXTFACE(1):TEXTSIZE(14)
- PRINT SPC(3);"FINISH"
- BUTTON 1,1,"jan",(25,30)-(75,55),1
- BUTTON 2,1,"feb",(95,30)-(145,55),1
- BUTTON 3,1,"mar",(165,30)-(215,55),1
- BUTTON 4,1,"apr",(235,30)-(285,55),1
- BUTTON 5,1,"may",(305,30)-(355,55),1
- BUTTON 6,1,"jun",(375,30)-(425,55),1
- BUTTON 7,1,"jul",(25,65)-(75,90),1
- BUTTON 8,1,"aug",(95,65)-(145,90),1
- BUTTON 9,1,"sep",(165,65)-(215,90),1
- BUTTON 10,1,"oct",(235,65)-(285,90),1
- BUTTON 11,1,"nov",(305,65)-(355,90),1
- BUTTON 12,1,"dec",(375,65)-(425,90),1
- WHILE DIALOG(0)<>1:WEND
- ButtonPushed =DIALOG(1)
- IF ButtonPushed = 1 THEN ed$="01"
- IF ButtonPushed = 2 THEN ed$="02"
- IF ButtonPushed = 3 THEN ed$="03"
- IF ButtonPushed = 4 THEN ed$="04"
- IF ButtonPushed = 5 THEN ed$="05"
- IF ButtonPushed = 6 THEN ed$="06"
- IF ButtonPushed = 7 THEN ed$="07"
- IF ButtonPushed = 8 THEN ed$="08"
- IF ButtonPushed = 9 THEN ed$="09"
- IF ButtonPushed = 10 THEN ed$="10"
- IF ButtonPushed = 11 THEN ed$="11"
- IF ButtonPushed = 12 THEN ed$="12"
-
- IF ed$ < sd$ THEN RUN
- WINDOW OUTPUT 1:CLS
- WINDOW CLOSE 2:WINDOW CLOSE 3
-
- GOTO Strt
-
- Strt:
- OPEN "Accts Recd" FOR INPUT AS #1
- WINDOW 2,"",(25,50)-(476,280),3
- Reedata:
- IF EOF(1) THEN Finish
- INPUT#1, ts$
- INPUT#1, CO$
- INPUT#1,dr$
- INPUT#1,CN$
- INPUT #1, PR$
-
- IF LEFT$(dr$,2)<sd$ THEN Reedata
- IF LEFT$(dr$,2)>ed$ THEN Reedata
- NG=VAL(PR$)+NG
- IF ts$<>"n" THEN Reedata
- TEXTFACE(0)
- PRINT SPC(1); dr$;SPC(2);
- TEXTFACE(1)
- PRINT CN$;TAB(42);
- PR=VAL(PR$)
- PRINT USING "$#####.##";PR
- FT=FT+PR
- IF EOF(1) THEN Finish
- GOTO Reedata
- Finish:
- PRINT CHR$(13);
- TEXTSIZE (12):TEXTFACE(1)
- PRINT"TOTAL RECEIVED:";
- PRINT TAB(42);
- PRINT USING"$#####.##";NG
- PRINT"TOTAL TAXABLE RECEIVED:";
- TEXTSIZE(12)
- PRINT TAB(42);
- PRINT USING"$#####.##";FT
- PRINT"TOTAL TAX RECEIVED:";
- TEXTSIZE(12)
- PRINT TAB(42);
- PRINT USING"$#####.##";(FT/107)*7
-
- CLOSE #1
-
- YourChoice:
- WINDOW 3,"",(25,285)-(476,330),-3
- BUTTON 1,1,"again",(55,10)-(130,35),1
- BUTTON 2,1,"print",(192,10)-(267,35),1
- BUTTON 3,1,"quit",(329,10)-(404,35),1
- WHILE DIALOG(0)<>1:WEND
- ButtonPushed =DIALOG(1)
- IF ButtonPushed =1 THEN FT=0:WINDOW CLOSE 2: WINDOW CLOSE 3: RUN
- IF ButtonPushed =2 THEN FT=0:NG=0:WINDOW OUTPUT 2:CLS:GOTO PrntWarning
- IF ButtonPushed =3 THEN WINDOW CLOSE 2:WINDOW CLOSE 3: LOAD "Open Me First",R
-
- PrntWarning:
- WINDOW 4,"",(115,120)-(375,200),-2
- TEXTFACE(1)
- PRINT"Please make sure printer is turned"
- PRINT"on and loaded with paper."
- BUTTON 1,1,"OK",(105,45)-(165,65),1
- BUTTON 2,1,"cancel",(185,45)-(245,65),1
- WHILE DIALOG(0)<>1:WEND
- ButtonPushed =DIALOG(1)
- IF ButtonPushed=1 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO Prnt
- IF ButtonPushed=2 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO YourChoice
-
- Prnt:
- LPRINT CHR$ (27);"X";
- LPRINT"SALES TAX (";sd$;" - ";ed$;", "; RIGHT$ (DATE$,4);")"
- LPRINT CHR$ (27);"Y";
- LPRINT ""
- OPEN "Accts Recd" FOR INPUT AS #1
- REM WINDOW 2,"",(25,50)-(476,280),3
- Redata:
- IF EOF(1) THEN Finis
- INPUT#1, ts$
- INPUT#1, CO$
- INPUT#1,dr$
- INPUT#1,CN$
- INPUT #1, PR$
-
- IF LEFT$(dr$,2)<sd$ THEN Redata
- IF LEFT$(dr$,2)>ed$ THEN Redata
- NG=VAL(PR$)+NG
- IF ts$<>"n" THEN Redata
- LPRINT SPC(1); dr$;SPC(2);
- LPRINT CN$;TAB(50);
- PR=VAL(PR$)
- LPRINT USING "$#####.##";PR
- FT=FT+PR
- IF EOF(1) THEN Finis
- GOTO Redata
- Finis:
- LPRINT ""
- LPRINT"TOTAL RECEIVED:";
- LPRINT TAB(50);
- LPRINT USING"$#####.##";NG
- LPRINT"TOTAL TAXABLE RECEIVED:";
- LPRINT TAB(50);
- LPRINT USING"$#####.##";FT
- LPRINT"TOTAL TAX RECEIVED:";
- LPRINT TAB(50);
- LPRINT USING"$#####.##";(FT/107)*7
-
- CLOSE #1
- GOTO YourChoice
-
-
-
-
-
-